home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Extra 1997 #1
/
Amiga Plus Extra 1997 #1.iso
/
system
/
config
/
config-use
< prev
next >
Wrap
AmigaDOS Script File
|
1977-12-31
|
2KB
|
69 lines
.key Choice/F
.bra {
.ket }
; (C) Sandro Paolini / s_paolini@pluribus.wupper.de / 4/96
failat 200
Stack 20000
SetEnv Aufrufstr ""
IF {Choice} EQ "1"
IF NOT EXISTS ENV:UseText
SetEnv Aufrufstr `AmigaPlus_CD-ROM_Nr.4-96:AmigaPlus_CD-ROM_Index/RequestFile drawer=AmigaPlus_CD-ROM_Nr.4-96:System/c title="Text-Anzeiger auswählen"`
ELSE
SetEnv Aufrufstr `AmigaPlus_CD-ROM_Nr.4-96:AmigaPlus_CD-ROM_Index/RequestFile drawer=$UseText title="Text-Anzeiger auswählen"`
ENDIF
ENDIF
IF {Choice} EQ "2"
IF NOT EXISTS ENV:UseGuide
SetEnv Aufrufstr `AmigaPlus_CD-ROM_Nr.4-96:AmigaPlus_CD-ROM_Index/RequestFile drawer=AmigaPlus_CD-ROM_Nr.4-96:System/c title="AmigaGuide-Anzeiger auswählen"`
ELSE
SetEnv Aufrufstr `AmigaPlus_CD-ROM_Nr.4-96:AmigaPlus_CD-ROM_Index/RequestFile drawer=$UseGuide title="AmigaGuide-Anzeiger auswählen"`
ENDIF
ENDIF
IF {Choice} EQ "3"
IF NOT EXISTS ENV:UsePic
SetEnv Aufrufstr `AmigaPlus_CD-ROM_Nr.4-96:AmigaPlus_CD-ROM_Index/RequestFile drawer=AmigaPlus_CD-ROM_Nr.4-96:System/c title="Bild-Anzeiger auswählen"`
ELSE
SetEnv Aufrufstr `AmigaPlus_CD-ROM_Nr.4-96:AmigaPlus_CD-ROM_Index/RequestFile drawer=$UsePic title="Bild-Anzeiger auswählen"`
ENDIF
ENDIF
IF {choice} EQ "4"
IF NOT EXISTS ENV:UseJPG
SetEnv Aufrufstr `AmigaPlus_CD-ROM_Nr.4-96:AmigaPlus_CD-ROM_Index/RequestFile drawer=AmigaPlus_CD-ROM_Nr.4-96:System/c title="JPEG-Anzeiger auswählen"`
ELSE
SetEnv Aufrufstr `AmigaPlus_CD-ROM_Nr.4-96:AmigaPlus_CD-ROM_Index/RequestFile drawer=$UseJPG title="JPEG-Anzeiger auswählen"`
ENDIF
ENDIF
IF {choice} EQ "5"
IF NOT EXISTS ENV:UseAnim
SetEnv Aufrufstr `AmigaPlus_CD-ROM_Nr.4-96:AmigaPlus_CD-ROM_Index/RequestFile drawer=AmigaPlus_CD-ROM_Nr.4-96:System/c title="Animations-Player auswählen"`
ELSE
SetEnv Aufrufstr `AmigaPlus_CD-ROM_Nr.4-96:AmigaPlus_CD-ROM_Index/RequestFile drawer=$UseAnim title="Animations-Player auswählen"`
ENDIF
ENDIF
IF $Aufrufstr NOT EQ ""
IF {choice} EQ "1"
SetEnv UseText $Aufrufstr
ENDIF
IF {choice} EQ "2"
SetEnv UseGuide $Aufrufstr
ENDIF
IF {choice} EQ "3"
SetEnv UsePic $Aufrufstr
ENDIF
IF {choice} EQ "4"
SetEnv UseJPG $Aufrufstr
ENDIF
IF {choice} EQ "5"
SetEnv UseAnim $Aufrufstr
ENDIF
ENDIF